home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 24 / PCGamer24_23Demos.iso / WarZone 2100 / data1.cab / Program_Executable_Files / script / fastplay / s-demos.slo < prev    next >
Text File  |  1998-10-21  |  2KB  |  88 lines
  1. /* Script file for s-demos (to start off world map) */
  2. /* Simply place transporter and show briefing */
  3.  
  4. /* General Values */
  5. public        int        player;
  6.  
  7. /* structure limit stuff */
  8. public    STRUCTURESTAT        factory, research, oilDerrick, powerGen;
  9. //public    STRUCTURESTAT        powerModuleHack;
  10. public    STRUCTURESTAT        command;
  11. public    INT            numPow, numExt, numFac, numRes;
  12.  
  13. /* Briefing stuff */
  14. public    INTMESSAGE        MissionBrief;
  15. public        INTMESSAGE        endMsg;
  16.  
  17. /* Win or lose */
  18. public        LEVEL        NextLev;
  19. public        TEMPLATE    transporter;
  20. public        SOUND        lostSnd;
  21. public        INT        timeLimit;
  22.  
  23. /* Landing Zone coords for Map to follow */
  24. public        INT        LZ_X1, LZ_Y1, LZ_X2, LZ_Y2;
  25.  
  26.  
  27. /* Triggers: Briefing */
  28. trigger vidEndTrig(CALL_VIDEO_QUIT);
  29. trigger gameLostTrig    (every, 20);
  30.  
  31. event nextLevEvnt;
  32.  
  33. event startEvnt(CALL_GAMEINIT)
  34. {
  35. //set scroll limits
  36.     setScrollParams(0, 0, 64, 64);            //limit scroll
  37.     centreViewPos(1088, 6592);            //centre near transport
  38.     addDroid(transporter, 704, 6976, player);        //place transporter!!!
  39. //set zoom Level 128x128
  40.     setRadarZoom(1);
  41. //stop player building on LZ
  42.     setLandingZone(4, 53, 6, 55);
  43. //set Mission time limit
  44.     setMissionTime(timeLimit);
  45. //allow to build stuff
  46.     setStructureLimits (powerGen,numPow,0);
  47.     setStructureLimits (oilDerrick,numExt,0);
  48.     setStructureLimits (research,numRes,0);
  49.     setStructureLimits (factory,numFac,0);
  50.     setStructureLimits(command, 1, player);
  51.     enableStructure(command, player);
  52.     enableStructure(powerGen,0);
  53.     enableStructure(oilDerrick,0);
  54.     enableStructure(research,0);
  55.     enableStructure(factory,0);
  56.     //enableStructure(powerModuleHack, 0);
  57. //give player briefing
  58.     //setEventTrigger(nextLevEvnt, vidEndTrig);    //flag next stuff after briefing over
  59.     addMessage(MissionBrief, MISS_MSG, 0, true);
  60.     setEventTrigger(startEvnt, inactive);
  61. }
  62.  
  63. event nextLevEvnt(CALL_LAUNCH_TRANSPORTER)        //click LAUNCH Button
  64. {
  65.     removeMessage(MissionBrief, MISS_MSG, 0);
  66.     setLandingZone(LZ_X1, LZ_Y1, LZ_X2, LZ_Y2);
  67.     startMission(OFF_KEEP, NextLev);
  68.     setEventTrigger(nextLevEvnt, inactive);
  69. }
  70.  
  71. event gameLost(inactive)
  72. {
  73.     addMessage(endMsg, MISS_MSG, 0, true);
  74.     gameOver(false);
  75.     setEventTrigger(gameLost, inactive);
  76. }
  77.  
  78. //out of time?
  79. event lostYetEvnt(CALL_MISSION_TIME)
  80. {
  81.     setEventTrigger(nextLevEvnt,inactive);
  82.     setEventTrigger(lostYetEvnt, inactive);
  83.     //playSound(lostSnd,0);
  84.     //pause(20);
  85.     //gameOver(false);
  86.     setEventTrigger(gameLost, gameLostTrig);    //waits 2 seconds before ending
  87.  
  88. }